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Here’s a program you will need when making printer drivers. It was 
accidently left out of the Rom Kernal Manual, Vol II. 
(By the way, it also serves as an example of using the timer device 
in assembler) 
andy finkel 


TTL ’ $Header$’ 


KKK KK KKK KK KKK KKK KK KKK KKK KKKKKKKKK KKK KKK KK KKKKKKKKKKKKKKKK KKK KKK KKK KKK 


% % HR Ke KX KX KF KF HK HK KX OX 


* 
Copyright 1985, Commodore-Amiga Inc. -All rights reserved. * 
No part of this program may be reproduced, transmitted, * 
transcribed, stored in retrieval system, or translated into * 
any language or computer language, in any form or by any * 
means, electronic, mechanical, magnetic, optical, chemical, * 
manual or otherwise, without the prior written permission of * 
Commodore—Amiga Incorporated, 983 University Ave. Papen #D, * 
Los Gatos, Salatornia, 950380 | . * 
: * 
GGG IO II IOI OIG IOI OIG IIIS III ICICI IO ICIS III IIOI ICI a GK 
wait 
SECTION printer 
* —____—— Included Files -----—-—-----—-—--—--------—-—-~--—-—-—~-—--—-—-—-—-—-—--—-—-----—--—— 
INCLUDE "exec/types.i" 
INCLUDE "exec/ports.i" 
INCLUDE "exec/devices.i" 
INCLUDE "exec/io.i" 
INCLUDE "devices/timer.i" 
INCLUDE "../printer/macros.i" 
INCLUDE "../printer/prtbase.i" 
* —————— Imported Names ----—~—--—---—---—-—--—--—-—-----—-—--—-—--—-—--—-- - —--- —- —-------- 
*——__—— Imported Functions -----—--—--—-—-~—--—-—-—--—--—-—--—-~--—-—-—--—-—-—-—-—--------- 
XREF_EXE _ Forbid 
XREF_EXE Permit 
_XREF_ EXE WaitIQ 
XREF -  -  -SysBase - 
XREF | _PD 
* _________— Exported Functions —-—-—-—-—-——-———---———----—-—~—~--~--—-—-—--—-----—------ 
XDEF _PWait 
* —__——— printer.device/PWait ----------~--~--------—----—---—-—-—-—-—-—--—------—- 
NAME 


PWait — wait for a time 


SYNOPSIS 
PWait(seconds, microseconds) ; 


FUNCTION 
PWait uses the timer device to wait after writes are complete 


x ¥ %¥ % %¥ KH KX KF HK HK 
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error: 


MOVEM.L A4/A6,-(A7) 


MOVE. L 
MOVE .L 
JSR 

ES lee 
BNE.S 


LEA 
MOVE .W 


MOVEM. L 
RTS 


END 


_PD,A4 
pd_PBothReady(A4) , AO 
(AO) 

DO 

error 


pd_TIOR(A4) ,Al 
#TR_ADDREQUEST , IOQ_COMMAND (A1) 
12(A7) , IOTV_TIME+TV_SECS (Al) 
16(A7) , IOTV_TIME+TV_MICRO(A1) 
IO_FLAGS(A1) 

IO DEVICE(A1) ,A6 
DEV_BEGINIO(A6) 

Forbid 


pd_TIOR(A4) ,Al 


WaitIO 
Permit 
#0 ,D0O 
DO 


(A7)+,A4/A6 
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MULTIPLE-—-PROCESSES 
MULTIPLE-PROCESSES by Rob Peck 
MULTIPLE-PROCESSES 
MULTIPLE-—PROCESSES 
MULTIPLE-—PROCESSES 


One of the questions that is often asked about the Amiga is: 
HOW DO I USE THE MULTI-TASKING CAPABILITIES? 


There are actually two different levels of multi-tasking that are 
possible on the Amiga, and which of these that you use depends on 
the nature of the subtask you wish to perform. 


oO If your code is largely self-contained, and does no I/O and 
uses no disk-resident library code, you can probably spawn 
a task, as is demonstrated in the task-spawning message. 


O If your code needs to do I/O, (or uses AmigaDOS functions 
in ANY way), it will have to be spawned as a process rather 
than as a task. MULTIPLE-PROCESSING is shown here. 


WHAT IS COVERED HERE? 
There are two programs contained in this message: 


O littleproc.c - a demonstration routine that is spawned by 
another process. The normal startup code with which it 
is linked automatically waits for a workbench-startup message 
before it gets going. Using the same message port that was 
provided when the process was initiated, it again goes to 


Sleep waiting for a message that contains specific information... 


in this case, the parameters that the master program 1s using, 
namely its stdout and stderr filehandles. Thus, this spawned 
process can be made to output to the same window from which 
the originating process was begun. 


O nroctest.c - a demo program that loads and starts littleproc, 
and unloads its code and data when it finishes. 


A process iS a superset of a task, and the various AmigaDOS routines 
require that a process control block and its associated information 
be available in order to run. Thus this code is provided to allow 

a user who requires a process rather than a task to have an example 
on which to build. 


The example was tested from the CLI, and compiled under Amiga C, 
(DatcLee 3.03). 


Link information: 
; "“process.with" 


FROM lib:Astartup.obj process.o 
TO process 


LIBRARY 
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lib:amiga.lib 


; "“littleproc.with" 


FROM lib:Astartup.obj littleproc.o 
TO littleproc 


LIBRARY 


lib:samiga.lib 


DISCLAIMER: 


Program 


This program is provided as a service to the programmer 
community to demonstrate one or more features of the Amiga 
personal computer. These code samples may be freely used 
for commercial or noncommercial purposes. 


Commodore Electronics, Ltd ("Commodore") makes no 
warranties, either expressed or implied, with respect 

to the program described herein, its quality, performance, 
merchantability, or fitness for any particular purpose. 
This program is provided "as is" and the entire risk 

as to its quality and performance is with the user. 
Should the program prove defective following its 
purchase, the user (and not the creator of the program, 
Commodore, their distributors or their retailers) 
assumes the entire cost of all consequent damages. In 
no event will Commodore be liable for direct, indirect, 
incidental or consequential damages resulting from any 
defect in the program even if it has been advised of the 
possibility of such damages. Some laws do not allow 

the exclusion or limitation of implied warranties or 
liabilities for incidental or consequential damages, 

so the above limitation or exclusion may not apply. 


dependencies: 


Use c-devel:examples/makesimple on proctest.c and 
littleproc.c BUT modify makesimple to uSe: 


Astartup.obj and amiga.1lib only instead of 
Lstartup.obj and lc.lib+amiga.lib. 


AND specify "-v" option (delete stack checking) 
for lce2. This eliminates any need to link with 
lco.lib or Lstartup.obj for this particular example. 


Note: I haven’t tried to make this compatible with 
the Lattice startup code.... the only point of 
incompatibility is my own use of stdout/stderr. 
Lattice defines them differently. AmigaDOS stdout 

and stderr are BPTR’s to an AmigaDOS data structure. 
When using amiga.lib to provide "printf" at link time, 
printf internally uses the AmigaDOS version of stdout. 
If you link with lc.lib specified first, then it 

uses 1tS own interpretation of stdout, so they 

will not be compatible with the values received from 
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the Open() function ("O"pen() is AmigaDOS, "o"pen is Lattice). 


Lattice defines stdout/stderr as the address of an i/o block. 
If the main process is compiled under Lattice and 

the slave process is also compiled under Lattice, 

then the values passed for stdout and stderr 

will be compatible. If not, then there is probably 
something a person could do to make them compatible. 


Perhaps some other person would care to investigate 
this and provide a translation method between the 
two. (Its a problem when one tries to mix two 
different manufacturer’s idea of underlying code 
support.) 


The purpose of the program is to allow you to see how a slave process 
can be initialized and started. Please ignore the stdout/stderr 
difficulties, and utilize whatever methods you wish for I/O. 


7 ® proctest.c kek kk kkk KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KR RR KKK KEKE a 


/* author: Rob Peck 3/14/86 i 
/* system software version: Vl.l ® 7: 


#include "exec/types.h" 

#include "exec/nodes.h" 

#include “exec/lists.h" 

#include "exec/libraries.h" 
#include "exec/ports.h" 

#include "exec/interrupts.h" 
#include "exec/io.h" 

#include "exec/memory.h" 
#include "libraries/dos.h" 
#include "libraries/dosextens.h" 


h 10] 


#include "“workhench/startup.h 


define PRIORITY 0 
#define STACKSIZE 5000 


extern struct Message *GetMsg(); 
extern int LoadSeg(); 

extern struct MsgPort *CreateProc(); 
extern struct MsgPort *CreatePort(); 


Struct MyMess { 
Struct Message mm Message; 
int mm OutPointer; 
int mm ErrPointer; 


} 3 


extern int stdout; 
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extern int stderr; 


main( ) 

{ 
Struct Message *reply; 
Struct Process *myprocess; 


/* Message that we send to the process to wake it up */ 
struct WBStartup *msg; 


/* Message to contain my own parameters to pass on to spawned 
* process, sample only. Just to prove that we correctly 
* create a process, we are giving it something other than nil: 
* as its stdout and stderr... in fact, giving it OUR values 
* so we can share the same output window. , 
i / 
struct MyMess *parms; 


/* Because main() is itself started as a process, it automatically 
* has a message port allocated for itself. Located at 
* &((struct Process *)FindTask(0))->pr MsgPort 
ar A 


int littleSeg; 


/* Actually littleSeg is a BPTR, but the int declaration 
* keeps the compiler happy and we don’t use the 
* value ourselves anyhow... just pass it on. 


oy 
char *startname, *parmname; 


struct MsgPort *mainmp; /* pointer to main’s msg port */ 
Struct MsgPort *littleProc; /* pointer to spawned proc’s msg port */ 


/* Provide names for the messages we are passing so we can check the returned 
* messages at the message ports.... that is if we choose to do so. 
x / a : naa 
startname 
parmname 


"startermessage"; 
“parameterpass"; 


/* LOAD THE PROGRAM TO BE STARTED FROM MAIN ¥k¥kkkkRKKKKKKR KKK KKKKKK KK KKK KEK OR / 


littleSeg = LoadSeg("littleproc"); 
1f(littleSeg == 0) 

| 
printf£("\nlittleproc not found"); 
exit(999); 

j 


/* CREATE A PROCESS FOR THIS OTHER PROGRAM *®® KX RRKKKKKKK KKK RK KK RK KK RRR RRO / 


littleProc = CreateProc("littleguy",PRIORITY, littleSeg, STACKSIZE) ; 
if( littleProc == 0 ) 
{ 


/* 
/*® 


/*® 
/*® 
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printf("\Couldn’t create the process"); 
UnLoadSeg(littleSeg) ; 
exit( 1000 ); 

j 


CHEK KKKKKKKKKKKR KAR KKK KKKAEK KR KKK KKEKKEKKKKKKEKKKRKKRKKKKKKKKKRKRKKKR KKK KKK KKK a 
Create a msgport */ 


myprocess = (struct Process *)FindTask(0); 


mainmp = CreatePort(0,0); /* should error check here */ 


kmaekkkk keke ae KR RK KKK KR RK KKK KK KKK KKK KKK KKK KKK KK KR KKK K KKK KKK KKK KEK KEK KKK KKK KKEKK x / 


THE FOLLOWING CODE BLOCK STARTS THE PROCESS RUNNING, 
AS THOUGH CALLED FROM WBENCH */ 


In fact, because we created the process the way that is shown 
here, 1£ you use the standard startup code, the program must 

be started as though called from Workbench. It is now waiting for 
a startup message. 


(There is, in fact, another way to call a loaded program’s code, 
but it does not entail starting another process. Rather it 
uses a direct call (as a subroutine) to the loaded code. The 
other program runs on your own stack, so your program must 

have sufficient stack to handle both of you. It also runs 
under your own process, so your own program does not get 

control until that other program has completed. The program 
return()’S or exit()’S to you, providing the appropriate 
returncode. This run-loaded-subroutine topic is covered in 

a separate code sample.) 


Kae eR RRR RR KKK KKK KK KKK KR KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK x / 


/* This message block is a wakeup call to the process we created. */ 
msg = (Struct WBStartup *)AllocMem(sizeof(struct WBStartup), 
MEMF CLEAR) ; 
if(msg) 7 
{ 


msg->sm Message.mn ReplyPort = mainmp; 
msg->sm Message.mn Length = sizeof(struct WBStartup); 
msg->sm Message.mn Node.ln Name = startname; 


/* Passing no workbench arguments to this process; 


* we are not WBench. Of course, if we want to pass 
* workbench-style arguments this way, we can. 
a 


msg->sm ArgList = NULL; 


/* If the process is being opened without a ToolWindow 
* (Workbench sets this up) as a parent, slave will simply 
* go on to do its own main() ... aS Shown in ASstartup.asm 


ar 


MultipleProcesses Page 6 


msg->sm ToolWindow = NULL; 
/* Send the startup message */ 


PutMsg(littleProc,msg); 


else 
{ 
printf£("\nCouldnt allocate mem for WBStartup!\n"); 
goto aarrgghh; /* Oh no, a "goto" ! */ 
} | 
/* KRKKKKKKKRKEKK KKK KKK KKKRKKKRK KKK KKEKKKKRKKKRKKR KKK KKK KKK KKK KKK KKK KKK KH * / 
/* Just a sample message, still using the same message and 
* reply ports 3 | 
* Littleproc is a cooperating process...it KNOWS it must: wait 
* until a message arrives at its port, containing the parameters 
* it should use for output. 
& 
* The startup message is handled by the standard startup code. 
* This parameter message is handled by the program code itself. 
* The startup message is returned to the replyport by the startup 
* code, after the program code exits or returns. 
Lt 


parms = (struct MyMess *)AllocMem(sizeof(struct MyMess),MEMF CLEAR) ; 
if(parms) 


parms-—>mm Message.mn ReplyPort = mainmp; 
parms—>mm Message.mn Length = sizeof(struct mymess) ; 
parms-—>mm Message.mn Node.ln Name = parmname; 


/* NOTE THAT THESE ARE THE AStartup.asm stdout and stderr; 
* the example works only if both master and slave are 
* compiled and linked with the same startup code. */ 


parms->mm OutPointer (Int) staouc; 
parms->mm ErrPointer = (int)stderr; 
/*® send him our parameters */ 


PutMsg(littleProc,parms); 

/* wait for the reply from parameter pass. */ 
WaitPort(mainmp) ; 

reply = GetMsg(mainmp) ; 

/* Message node name should contain the address of the 


String “parms" if error checking was included. 


User should probably allocate separate ports for 
parameter passing different from the main port 


* 
* 
& 
* 
* 
* automatically allocated by the system when a 
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process 1S initiated. It would alleviate 
some of the checking that is appropriate to do 
when multiple kinds of messages arrive at the same port. 


NOW MAIN CAN GO ON AND DO SOMETHING USEFUL, 
LATER CAN COME BACK AND SEE IF SPAWNED PROCESS 
HAS COMPLETED AND IS READY TO BE UNLOADED. 


Wait for the return of the wbstartup message before 
main itself is allowed to exit. 


+ + + F + + + F + HF OF OF 


WaitPort(mainmp); 


céply = GetMsg(mainmp) ; 
/* Message node name should be 
* address of "Startermessage" */ 


/* NOTE: there should be checking here to see if the message 
* received at this port was the string, or the wakeup call. 
* This sample code only assumes that the string is received 
* and replied first, then the wakeup call message is returned 
* as the little task is exiting. 
“7 


UnLoadSeg(littleSeg) ; 
DeletePort(mainmp); 


printf("\nSlave exited; Master unloaded its code and data\n"); 


else 
{ 
printf£("\nCouldn’t allocate memory for parameter message\n"); 
aarrgghh: a 
/* arrive here on good or bad exit */ 
if(parms) { FreeMem( parms, sizeof(struct MyMess)); | } 
if(msg) { FreeMem( msg, Sizeof(struct WBStartup)); } 


/* end of main */ 


littleproc.c KaAKRKRKR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KR KKK KKK KKK KERR KKK x / 
Sample slave code for create process test */ 
author: Rob Peck 3/4/86 */ 


system software version: Vl.1l ey 


#include 
#include 
#include 
#include 
#include 
#include 
#include 


#include 
#include 


#include 


/*® these 


/*x they are actually defined in the startup code (Astartup.asm) 


extern 


int 
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"exec/types.h" 
"exec/nodes.h" 
"exec/lists.h" 
"exec/libraries.h" 
"exec/ports.h" 
"exec/interrupts.h" 
"exec/io.h" 


"libraries/dos.h" 
"libraries/dosextens.h" 


"workbench/startup.h" 


are going to be supplied to the slave by the starter */ 
a 


stdout; 


Ld 


extern int stderr; 


Struct MyMess { 
Struct Message mm Message; 
int mm OutPointer; 
int mm ErrPointer; 


3 


extern 
extern 
extern 


 main( ) 


{ 


Struct Message *GetMsg 
struct Task *FindTask ( 
struct FileHandle *Ope 


, 


( ) 
)3 
56 ae ae 


Struct 
struct 
Struct 


MyMess *nsq; 
MSQGPOEC *MYDOrT; 
Process *myprocess; 


ScCruce FileHandle *myOwnOutput; 


myprocess = (struct Process *)FindTask(0Q); 


—> 
— 


myport &myprocess->pr MsgPort; 
/* Wait for starter to post a message. Special sample message 
* has his stderr, stdout so we can both post stuff to the 


* same CLI window as he started from */ 


WaitPort(myport); 


msg (struct MyMess *)GetMsg(myport) ; 


stdout msg->mm OutPointer; 


/* Use printf to prove that it is really a process... 
* a Simple task cannot do this without crashing! */ 


printf("\nHere I am, that slave process you started!!!"); 
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printf£("\nNow going to open MY OWN window.\n"); 


/* NOW DO SOMETHING USEFUL... DO WHATEVER THE PROCESS WAS DESIGNED 
™ LO ACCOMPLISH. 


ay 


myOwnOutput = Open("CON:10/10/320/150/SlaveProcess",MODE NEWFILE) ; 
1£(myOwnOutput == 0) 


ReplyMsg(msg); /* tell main I’m done */ 
exit(0); /*® can’t return an error code anyhow */ 


else 


stdout = (int)myOwnOutput; 
/* reset my output file handle */ 
printf, "See, I cai do AmLlgabOSi"); 
Delay(250); /*® 250/50 = 5 seconds */ 
stdout = msg->mm OutPointer; 
Close(myOwnOutput) ; 
ReplyMsg(msg); 

j 


/* Now simply fall off the end of the world, 
* returns to the startup code, and should exit cleanly */ 


j 


/ * wekkk kh kk eK KR KKK KK KKK KKK KKK KKK KKK KKK KKK KR KKK KKK KR KKK KKK KKK KKK KKK KRKAEKK 


As a final note, one could have created and started another process by 
using the Execute command of AmigaDOS: 


Success = Execute("someprogram",0,0); 
but I went through this exercise to show interprocess communication 


setup and message passing. I hope that the sample code provides some 
insite into the multi-processing capabilities of AmigaDOS. 


KARR RK KKK KKK K KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKR KKK KKK KKK KKK KKK KK KKK x / 


this document was 
generously 
contributed by 
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